#!/usr/bin/env perl

use utf8;
use strict;
use Path::Class qw{ dir };

my $dir = dir(qw (Users Fred lib));

print "Subdir -> ".$dir->subdir('perl5');

print "Parent dir -> ".$dir->parent;

print "Win dir -> ".$dir->as_foreign('Win32');
